COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C≡≡≡≡≡≡ THIS IS THE REQUIRED HEADER FOR 'SCORE' SUBROUTINES. ≡≡≡≡≡≡≡
C00004 ENDMK
C⊗;
C≡≡≡≡≡≡ THIS IS THE REQUIRED HEADER FOR 'SCORE' SUBROUTINES. ≡≡≡≡≡≡≡
	SUBROUTINE SUBR
 	COMMON /P/P(1) /PL/PL(1) /INS/ INST(27),BG(60)
 	COMMON INUM,IPAR,CNT(27),BT,IREST,DF,DUR(27)
C   INUM=INST#  IPAR=PARAM#  
C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
C   NOTE #S IN SUBROUTINE: (1-108)  C4=49  FS4=55  B4=60  C5=61  ETC.
C   F0=200  F99=299 (LIMIT IS F0-F99!)  'R'(REST)=199
	DATA J/12/

	IF(P(3).NE.K)GO TO 1
C K STORES PREVIOUS P3.  
C  IF REPEAT, THEN OCTAVE JUMP, UP OR DOWN. ALSO TONE CHANGE TO F6(206).
C ALSO DUTY FACTOR CHANGE.
	P(3)=P(3)+J
	DF=3
	P(13)=206
1	K=P(3)
	J=-J
	RETURN
	END